ESPOL LOADER 
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“12 LIT: 
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21 [05 “ 
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22:0 DIA44 
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23:0 
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i 


2 adaoody 
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4 29020 
3; ead 


 : {8e4ioTy - 


1200 (| eaeo LEAD CRA, I2Zg weeps, ALPHA, WTO 444 


. _ F¢o000_ 
oOo ae 


| 4488S. 
ee dae 
5 OOtO eS 


BIT 28, Jpzof, 


= (22-6) - WAIT FoR I/o -CoMPLETE 


41310 
1700 
0060 (cyag move Pom DESCR (WITH ARGS) 
6000 
= 724 
00 24 mene 
0483 
0304+ 
0243 
ooas 
0000 
006S 
0100 
(22-0) 
6116 
(22-0) 
00SS 
o0SS 
0000 Ilo ( FIntsneo . 
166 Bicone Lt eS 
OOO ciae - 
az3ay ~ (BL). - 
0000 ° ~ Llo™ 2 Fiustéo = 
0066. , GET ResuLT DESCR 
0030 ae 
4231 (32-2) ~~. 
oe: es L/o 3 FUIltSHed 
6 GéT LesuLcT De&SCR 
ool Oo ~ 
4231 (32-2) 
0000 ~ “Klo'4 FINISHED: ~ 
0076. > GET BESULT DESCR.. 
7561 Bit 47 : Be ee 
O65 Get Bit 728, D20F o-S Gry z-F? 1B- 23 


4 s G 7 
24-24 $o-8Y 36-41 42-47 


LABEL, 


PRT(201) 


PRT(202) 


QOOQQQ000L INE 


Y 


STACKCF +1) 


PRT(203) 


PRT(204) 


PRT(205) 


= 
= 


al 


OO1781249EXECUTE ESPOL/DISK 


COMMENT: * TITLE? 
FILE 


1D: 
THIS MATERTAL IS PROPRIETARY TO BURROUGHS CORPORATION 
AND 1S NOT TO BE REPRODUCED, 


SOURCE FILE: 


B=5500 ESSENCE OF MCP 
B5500/B5700 MARK XVI SYSTEM RELEASE 
SYMBOL/KERNAL 


O0V0000/DISK 


BURROUGHS B=5700 ESPOL COMPILER MARK XVI,0,116 


SYMBOL /KERNEL 


TAPE 108 


THURSDAY» 


PrEsGs 
SYMBOL2/FILE000 


OR DISCLOSED 


EXCEPT IN ACCORDANCE WyYTH PROGRAM LICENSE OR UPON 


BURROUGHS CORPORAT]JON»® DETROIT» MICHIGAN 48232 


COPYRIGHT ¢C) 


BEGIN 


DEFINE 


*SEGMENT DESCRIPTOR* 


DATA 


= PROCVAL 


FINDMEN 


ARRAY 


DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
INTEGER 


INTEGER 
LABEL 


DATA C*]3 


ADDRESS 
BASE 
DIRECTOP 
DISK 
INDX 
MODS 
NOSYS 

R 

SYSTEM 
PROCVAL 


FINDMEM; 


TIMER» START» TOPOCODE? 


SAVE REAL PROCEDURE EOMs 


EOM 


TIMER 


BEGIN 
0000 LITC 
0001 OPDC 
0002 BFW 
0003 OPDC 
0004 RTN 


1974» 
BURROUGHS CORPORATION 
AA320206 


oon un 


nn iu 


AA386657 


ML@40) 


MEO] #3 
MC1] #3 


MLeC@41] 
MEC@42) 
MEC@46] 
MC@43) 
MEe@44] 
MC@45] 
+13 


GO TO TIMER END} 


0000 0000 
0205 1026 
42314 
1001 4006 
0235 


SAVE REAL PROCFDURE 10 (DESC); 


* 
* 

* 

* 

* WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 
# 

* . 

* 1972» 
x 

- 


AA332366 


M=MEMORY #* P=POLISH #3 


#3 


DISK ADRS OF DikceTey TP 


START OF SAVE 


THIS FIRES OFF THE [0 


05/04/78» 


eee R HK HR HH 


= 


5'52 PM, 


00020000 
00020110 
00020114 
00020112 
00020133 
00020114 
00020115 
00020116 
00020117 
00020118 
00020119 
00020120 
00030000 
00040000 


00050000 


00060000 
00070000 
00080000 
00090000 
00100000 
00110000 
00120000 
00130000 
00140000 
00150000 


00160000 


00170000 
00180000 


SEGMENTS BASE 


00190000 


00200000 


ESPOL /DISK 


0000:0 
0000:0 
000030 
000050 
0000:0 
000030 
000050 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 


ee 


000020 


+ 


000070 
000050 
000040 
000030 
000020 


000030 
0000380 
000030 
000030 


Ss st Hs ss 


T 000030 


T 000030 
T 00000 
ADDRESS 5 


T 000030 


SIZE= 0002 
T 000030 


START OF SAVE SEGMENT? BASE ADDRESS = 


000030 


00000 


WORDS 


00002 


} 


_ 


Cs Oe ~~ Ce 


C3 


PRT(206) = 10 


VALUE DESC} 00210000 TFT 0000:0 
REAL DESC 00220000 T 0000:;0 
BEGIN 00230000 T 0000:0 
DO BEGIN 00240000 T 0000:0 
0000 uytc 0000 0000 
PCCDESC]+110)73 00250000 T 0000%} 
0004 DESC 16014 7007 
0002 4444 
R « EQM3 00260000 T 000033 
0003 LITC 0044 0220 
0004 NEScC 0700 4003 
0005 INX 0144 
0006 MKS 0444 
0007 OPDC O204 10292 
0010 XCH 1025 
0011 STD 0424 
10 « R,£25:8] 00270000 T 0002:2 
0012 LyTc 0044 0220 
END UNTIL CPROCVAL AND 5)s03 00280000 T 000233 
0013 DESC O700 4003 
0014 INX 01414 
0015 LOD 2024 
0016 4155 
0017 2345 
0020 LITC 1004 4004 
0021 STD 0424 
0022 OPpc 1001 4006 
0023 j%LiTc 0005 Q024 
0024 LND 0415 
0025 bLyrTc 90000 0000 
0025 kbLyTc 0000 0000 
0026 EQ@QL 4425 
0027 LiTc 0000 0000 
00?7 LITC 0030 0140 
0030 BBC 0131 
END} 00290000 T O00631 
0031 OPDC 1001 4006 
0032 RTN 0235 


SIZEs 0007 WORDS 
SAVE PROCEDURE DISKREED (DESC); 00300000 T 0000:0 
START OF SAVE SEGMENTS BASE ADDRESS = 00009 
PRT(207) = DISKREED 


VALUE DESC} 00310000 T 0000:0 

REAL DESC3 00320000 T 0000:0 

BEGIN STREAMCA © BASE + ANDRESS» Bt=DESC,(33415])3 00330000 T Q000;0 
0000 NOP 0055 


0001 OPDC 0200 1002 
0002 LiTc 0040 0200 
0003 DESC 0200 1003 


0004 [NX O14) 3 
0005 LON 2021 
0006 ADD 0104 


0007 LyTc 0000 0000 
0007 OPNC 1601 7006 
0010 5355 
0013 3045 


e 


Or, Go). “> MOE 5h: Sek: 2@ 


O- “O 


Ge toe ue) 


© 


O 


0000 MKS O444 
0012 Hay 
BEGIN ST#sLOC AspDIt=BsDSi=8 DEC? END 00340000 T 000233 


0013 SES 0002 0222 
0014 Rpa 0001 Q104 
0015 Orv 0010 1066 
0016 kbLrTc 0020 0100 
IF MCDESC].¢5%1] THEN DESC,£325) «1232 00345000 T 000333 
0017 OPDC 1604 7006 
0020 DESC 0200 1003 


0021 INX O14) 
0022 LOD 2021 
0023 0555 
0024 1045 


0027 OPDC 1601 7006 
0030 bITc 0014 0060 


0031 7155 
0032 0361 
0033 0565 
0034 LiTc 1601 7004 
0035 STD 0424 
0025 LiITc 0007 0034 
0026 BFC 0231 
DO Re [OCDESC) UNTIL R=03 00350000 T o007:2 


0036 LiTc 0044 0220 
0037 DESC 0200 1003 
0040 JINX 0144 
0041 MKS 0444 
0042 OPDC 1601 7006 
0043 OPnDC 0206 1032 
0044 XCH 1025 
0045 STD 0424 
0046 LiITc 0044 0220 
O0O47 DESC 0200 1003 


0050 INX 0144 
0051 LOD 20214 
0052 kLitc 0000 0000 
0053 EQL 4425 


0054 LITc 0000 0000 
0054 LyTc 0020 0100 


0055 Bac 0134 
ENDS 00360000 T 0011!2 
0056 Xq{T 0435 


SIZE= 0012 WORDS 
TOPOCODE *@20% GO TO START} FIRST CODE 00380000 T 0000:0 
0400 LiTc 0000 0000 
0101 OPDC 0211 14646 


TIMER #@222 PCINIISIF NOT FINDMEM THEN &% TIMER 00390000 T 0016t2 
0110 0214 
O111 OPDC 0203 1016 
0112 LNG 0115 
0113 LyTc 0000 0000 
GO TO START; @ SET UP FOR [NVD ADDR 00400000 T 001833 
0112 OPDC 0020 0102 
0113 OPDC 0011 0046 


; + GO TO TIMER; % SPO 00410000 T 001930 
0144 LITC 9001 0004 


Os. D> De SOT Oe, 30): TO AG 


O 


0115 


0124 
0125 


0130 
0131 


0134 
0135 
0136 


0140 
0144 
0142 


0444 
0145 
0146 


0150 
0151 
0152 


0160 
0161 


0170 
01714 


0174 
0175 


0304 
0305 
START si 
0304 
0305 
0112 
0113 
0100 
0401 
1040 
1041 
1042 


1043 
1044 
1045 
1046 
1047 
1050 
1051 
1052 
1053 
1054 
1055 


LBU 6131 
2@25: GO TO TIMER; 
LITC 0003 0014 
LBU 6131 
$@26: GO TO TIMER; 
LiTc 0004 0020 
LBU 6134 
20273 PC@L4>+LOD,RTND: 
LITc 0014 0060 
LOD 2024 
RTN 0235 
2@30: PC@15-LOD,RINI3 
LiTc 0015 0064 
LOD 2024 
RTN 0235 
$031: PcC@16*rLOp,RTN)3 
LiTc 0016 0070 
LOD 2024 
RTN 0235 
$@32: PcC@17»LOD,RIN)3 
LITc 0017 O07%4 
LOD 20214 
RTN 0235 
3@34: GO TO TIMER; 
LITc 0012 0050 
LBU 6131 
$@36: GO TO TIMER; 
LiT¢c 0014 0060 
LBU 61314 
1@37: GO TO TIMER; 
LiTc 0015 0064 
LBU 6131 
$@61: GO TO START; 
LITC 0023 Oj114 
OPDC O211 1046 
Pc@100%STS)3 
LiTc 0127 0534 
LFU 6231 
LiTc 0166 0730 
LFC 2231 
Litc 0170 0740 
LFU 6231 
LITC 90400 0400 
LITC 0003 O014 
2144 
McMODS s= MODS + @10000] 
LITC 0046 0230 
Desc 0200 4003 
IENX Q144 
LITC 0046 0230 
DESC 0200 1003 
tNX O14, 
LOD 2024 
NESC 1777 7777 
NOP 0055 
AND 0104 
LIT¢ 0000 0000 


- 


0 


, 


rs 


% SET STACK TO 


LPA 


LPB 


170 1 COMPLETE 


170 2 COMPLETE 


170 3 COMPLETE 


1™0 4 COMPLETE 


DATA COMM 


DF #1 USED ON FREE ADDRESS 


DF #2 RETURN 


Pi INVD ADDRESS 


oct 100 


% FIND MOD TO LOAD MCP 


00420000 


00430000 


00440000 


00450000 


00460000 


00470000 


00480000 


00490000 


00500000 


00510000 


00530000 


00540000 


0019%2 


0021i2 


0022%2 


002333 


002433 


002533 


002633 


00268:2 


0030%2 


Q031%2 


004982 


0136%3 


GO ©: & 6. :& 6G & 6 


) 


O 


O 


Cer © OO: GC 


\ 
+ 


0 


1110 
1114 


0000000000010000 


0000000000070000 


1955 
1056 
1057 
1060 
1061 
1062 
1063 


1064 


1065 
1066 
1067 
1070 
1071 
1072 
1073 
1074 


1076 
1077 
14100 
1101 
1102 
1103 


1104 
1105 
1106 
1107 
1052 


1071 


1074 
1075 


1120 
1121 
1122 


1123 
1124 
1125 
1126 
1127 
1127 
1130 
1131 
i132 
1133 
1134 
1135 
1136 


1137 


XCH 
SND 
DESC 
INX 
LETC 
XCH 
STD 
PCIN] 


0200 


0000 


3 


19025 
1024 
1003 
Q144 
0000 
1025 
0424 
% CHECK FOR INVD ADDRESS 
0214 


IF MODS GTR ©70000 THEN 


LITC 
DESC 
INX 
LOD 
DESC 
NOP 
GTR 
LITC 
BEGIN 
LyIT¢ 
DESC 
INX 
LITc 
XCH 
STD 


LUTc 
LBU 
NOP 
NOP 
OPDC 


OPDC 


END? 
LITc 
LFC 
FINDM 
LITc 
LITC 
1S) 
DATA 
LITC 
LOD 
LITc 
INX 
LITC 
DESC 
INX 
LITC 


LITC 
STO 

DISK 
LITC 


0046 0230 
0200 41003 
0144 
2021 
1777 8 677¢?7 
0055 
0225 
0000 0000 
MODS ts O3 
0046 0230 
0200 4003 
0144 
0000 0000 
1025 
0424 
GO TO START} 
9011 0044 
6131 
0055 
0055 
0222 1112 
0223 1116 
0005 0024 
2231 
EM t= TRUE; 
0001 0004 
0203 1014 
4124 
e(MC C¥PC,FOMIIINX 100]] & 1023(6:38:10)3 
0204 1020 
2024 
0144 0620 
0144 
0000 0000 
0200 1003 
0144 
1777 «67774 
6255 
12614 
1265 
0202 1010 
0424 
« DATA,(33:15]3 
0041 0204 


00550000 


00560000 


00570000 


00580000 


00580000 
00580000 
00590000 


00600000 


00610000 


00620000 T 


014140 


O14ie1 


014330 


014530 


0145!0 
0145340 
014830 


014830 


014833 


015133 


O 


ie 


Oo 


Ch. Oy Gye OO A Ge Gs A CE OA a) 


CO) 


Ce “ee. a EG 


) 


Cr «@ 


© ae © ae 


O 


DESC 0200 10603 


INX 0144 
LITc 0202 1010 
LOD 2021 
5355 
3045 
XCH 1025 
STD 0424 
MrDISK] « @403 00630000 T 015420 


LITC 0041 0204 
DESC 0200 1003 


INX 0141 
LOD 2021 
DESC 0200 1003 
INX 0144 
L{Tc 0040 0200 
XCH 1925 
STD O424 
INDX « 133 00640000 T 015641 


LiTc 0042 0710 
DESC 0200 4003 


INX 0144 
LITC 0015 0064 
XCH 1025 
STD 0424 
IF 10 €@140004000G000008 DISK £33%33%15]) = 0 THEN 00650000 T 015733 
MKS 0444 
DESC 1777 7777 
NOP 0055 


LiITc 0041 0204 
DESC 0200 1003 


INK 0144 
LOO 2021 
5425 


OPDC 0206 1032 
LiITc 0000 0000 


EQL Abs 

LiTc 0000 Q000 
BEGIN 00660000 T 0160%2 
SYSTEM + DATATII,([4:2]} 00670000 T 016130 


LiITc 0045 O224 
DESC 0200 4003 
TNX 0144 
LtTc 0001 0004 
OrPDC 0202 1012 


0455 

1045 

XCH 1025 

STD 0424 
MEDISKI]« @40608SYSTEM [303463213 SCLEAR CONTENTION 00680000 T 0163314 


LyTTc 0041 0204 
DESC 0200 1003 


UNX O144 
LOD 2024 
DESC 0200 1003 
INX 0144 


DESC 1777 7777 


On Or > Or 


Ch Ts SO as Oe ee eI + hy) 


OQ 


O 


) 


Ce Hy. 


C) 


1224 
1225 
1226 
1227 
1230 
1231 
1232 
1233 
1234 
1235 


1236 
1237 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 


1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1260 
1761 
1262 
1263 
1264 
1265 
1266 
1267 
1270 


1271 
1272 
1273 
1274 
1275 
1276 
1277 
1300 
1301 
1302 


1303 
1304 
1305 
1306 
1307 
1310 


NOP 
LITC 
NESC 
TNX 
LOD 


XCH 
STD 


MKS 
DESC 
NOP 
LITC 
DESC 
TNX 
LOD 


OPDC 


LITC 
DESC 
INX 
LOD 
DESC 
INX 
DESC 
NOP 
LITC 
DESC 
INX 
LOD 


XCH 
STD 


MKS 
DESC 
NOP 
LIT¢c 
DESC 
INX 
Lon 


OPDC 


LITC 
DESC 
TNX 
LITC 
DESC 
INX 


0045 
0200 


0055 
0224 
1003 
O14 
2021 
7455 
5064 
0265 
1025 
0421 


PC1OC&140000100000000 &DISKL33233%815])sDEL)3 % BITS 


1777 


0041 
0200 


0206 


MEDISK]« @6060&SYSTEML 302462213 


0041 
0200 
0200 
1777 


0045 
0200 


0444 
7777 
0055 
0204 
1003 
0144 
2024 
5425 
1032 
00514 


0204 
1003 
0144 
2024 
1003 
0144 
7777 
0055 
0224 
1003 
O14) 
2021 
7455 
5064 
0265 
1025 
04214 


4 UNLOCK ADDRESSES 


P¢10¢@140000100000000 & DISK £33%33315])»DEL); 


0247 


0041 
0200 


0206 


INDX ¢ 
0042 
0200 


0042 
0200 


0444 
1237 
0055 
0204 
1003 
01414 
2021 
5425 
1032 
00541 
INDxX 
0210 
1003 
O144 
0210 
1003 
0141 


+ (SYSTEM x 5)3 


00690000 T 


00700000 T 


007140000 T 


00720000 T 


016732 


017040 


O174i1 


017633 


a 


© 


> 
ty Oo w 
ab pe 
Ww Ne 


1314 
1315 
1316 
1317 
1320 
1320 
1321 
1321 
1322 


1202 
1203 


1323 
1324 


4325 


1326 
1327 
1330 
1331 
1332 
1333 


1334 
1335 
1336 
1337 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1347 
1350 
1354 
1352 
1333 
1354 
1355 
1356 
1357 
1360 
1360 
1361 


1362 
1363 
1364 
1365 
1366 
1367 


OF SET ADNRESS TO ZERO 


LOD 2024 
LITc 0045 0224 
DESC 0200 1603 
INX 0141 
LOD 2024 
LITC 0005 0024 
MUL 0404 
LITC 0000 0000 
ADD 0104 
LITC 0000 Q009 
XCH 1025 
STD 0424 
END: 

LiITc O117 O474 
BFC 0231 
MEDISK] t= 

LITC 0041 O204 
DESC 0200 4003 
INX ~ 0141 
LOD 2024 
DESC 0200 1003 
TNX O14, 
LITG 0000 0600 
XCH 1025 
STD 04214 
DO Re LOCDYISK INxX 
LITc 0044 02209 
DESC 0200 4003 
INX O14, 
MKS 0444 
LITC 0041 0204 
DESC 0200 4003 
INX 0144 
LOD 2021 
DESC 1777 7777 
NOP 0055 
INX 0144 
LITC 0000 Q009 
OPDC 0206 1032 
XCH 1025 
STD 0424 
LITC 0044 0220 
DESC 0200 1003 
INX 0144 
LOD 2021 
LiTc 0000 0009 
EQL 4425 
LiITc 0000 0600 
L1Tc 0005 0024 
LBC 2131 
DIRECTOP t= DATA 
LITC 0004 Q004 
DESC 0200 4003 
INX 0144 
LiITc 0002 oO010 
OPNC 0202 4012 
XCH 1025 


@140000040100000 ) UNTIL R=03 


c243 


00730000 T 


00740000 T 


00750000 T 


00760000 T 


018033 


018033 


0183:0 


018652 


ts 


6 ae @ ae © ames © ee © ae 


© ) 


CO) 


O 


O) 


1370 


1371 
1372 
1373 
1374 
1375 


1376 


Late 


1400 
1401 
1402 
1403 
1404 
1405 
1406 


1407 
1410 
1411 
1412 
1413 
1414 
1415 


1417 
1420 
1421 
1422 
1423 
1424 
1425 


1426 
1427 
1430 
1431 
1432 
1433 
1434 


1435 
1436 
1437 
1440 
1441 
1442 
1443 


1444 
1445 
1446 
1447 
1450 


1453 
1452 


STD 04214 
NOSYS $= PATA Lids 
LiITc 0043 0214 
DESC 0200 1003 
INK 0144 
LITC 0004 0004 
OPDC 0202 1012 
XCH 1025 
STD 0424 
BASE 2= DATA CINDXI3 
LITC 0042 0210 
DESC 0200 4003 
TNX 0144 
LOD 2021 
OPDc 0202 10192 
DESC 0200 4003 
STD 0424 
IF BASE LE@ pIRECTOP THEN 
OPpc 0200 14009 
LITC 0001 0004 
DESC 0200 14003 
INX 0144 
LOD 2021 
LEO 44125 
LiTc 0000 00009 
BEGIN MC@46) ¢= @31456521433124603 
ITC 0046 0230 
DESC 0200 1003 
INX 0144 
DESC 1777 7777 
NOP 0055 
XCH 1025 
STD 0424 
MC@47) t= @21242451256262603 
bITC OO47 0234 
DESC 0200 1003 
INX 0144 
DESC 1777 7777 
NOP 0055 
XCH 1025 
STD 0424 
Mr@50) t= @26465160442347373 
LiTc 0050 0240 
DESC 0200 1003 
INX 0144 
DESC 1777 7777 
NOP 0055 
XCH 1025 
STD 0424 
PCI0C@740000000000046) DELI} 
MKS O44, 
DESC 1777 7777 
NOP 0055 
OPNC 0206 1032 
0054 
DO UNTIL FALSES 
LITC 0000 000 
LITc 0003 0014 


SINVALID 


SADDRESS 


4FOR MCP 


00770000 


00780000 


00790000 


00800000 


00810000 


00820000 


00830000 


00840000 


019031 


019230 


019333 


019531 


019752 


019934 


0201°0 


020¢i1 


) 


CO Or co. Ga OF Gk CO oes <a 


O 


O 


Or 35 © 


Oe Or Ge Oe Or Oe iO 


O 


1453 


1415 
1416 


1454 
1455 
1456 
1457 
1460 
1461 


1462 
1463 
1464 
1465 
1466 
1467 
1470 
1471 
1472 
1472 


1473 
LA7h 
1475 
1476 
1477 
1500 


1501 
1502 
1503 
1504 
1505 
1506 
1507 
1510 
{511 
4511 


1512 
1513 
1514 
1515 
1516 
nee eg 


1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 


BBC 
END? 
LTC 
LFC 


% BEGIN LOADING McP 


0010 


01314 


0040 
2231 


ADDRESS + 73; 


DISKREED €&140000047704935 OR MODS); 


NISKREFD ¢€©140000047700473 OR moDS)3 


DISKREED €®140000041200017 OR MONS); 


LITC 0040 0200 
NESC 0200 14003 
INX 0144 
LITC O111 O444 
XCH 1025 
STD 0424 
MKS 0444 
DESC 1777 777? 
NOP 0055 
LITc 0046 0230 
DESC 0200 4003 
INX 0144 
LOD 2024 
LOR 0215 
LiTc 0000 0009 
OPDC 0207 1036 
ADDRESS «+ 10; 

LITc 0040 0200 
DESC 0200 4003 
INX 0144 
LITC 0012 0050 
XCH 1025 
STD 0424 
MKS 0444 
DESC 1777 7777 
NOP 0055 
LiTc 0046 0239 
DESC 0200 4003 
INX 0144 
LOD 2021 
LOR 0215 
LITC 0000 0000 
OPDC 0207 1036 
ADDRESS « 03 

LITC 0040 0200 
DESC 0200 14003 
INX 0144 
LITC 0000 Q009 
XCH 1025 
STD O42 
MKS 0444 
DESC 1777 7777 
NOP 0055 
LITC Q046 0230 
DESC 0200 4003 
INX 0144 
LOD 2024 
LOR 0215 


(MAX SIZE IS 4080) 


00850000 T 


00860000 T 
00870000 T 


00880000 T 


00890000 T 


00900000 T 


00910000 T 


00920000 T 


0203370 


020350 
0203%0 


020482 


020633 


020841 


0210%2 


021240 


(© ee © ae ee ae Oe 


QO 


} 


“—~ 


GC). ie 3 


Oy “Os YO" SG Sr Oi; 3 Oe Oc 19 
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1530 
1530 


1531 
153? 
1533 
1534 
1535 
1536 
1537 
1540 
1541 
1542 
1542 
1543 


1544 
1545 
1546 
1547 
15590 
1551 
155? 


1553 
1554 
1555 
1556 
1557 
1560 
1563 


1562 
1563 
1564 
1565 
1566 
1567 
1570 


1571 
1572 
1573 
1574 
1574 
1575 


1576 
era 
1600 
1601 
1602 
1603 
1604 
1605 
1606 


©04410232010044413 CODE TO PULL MCP DOWN 


®02530104535277053 THIS MOVES 4042 wos 


@3705005101002411; 


MrOJS=BASERSYSTEMC1624682I8(NOSYS)[143463213 


LIT¢ 000 0009 
OPDC 0207 1036 
2 END MCP LOaDb 
MONS ts MODS + @403 
LITc 0046 0230 
DESC 0200 4003 
INX 0144 
LITC 9046 0230 
DESC 0700 1003 
INX 0144 
LOD 2024 
LiITc 0040 o200 
ADD 0104 
LyITc 0000 0000 
XCH 4025 
STD 0424 
Mr@15] « 
LiIT¢ 0015 0064 
DESC 0200 14003 
INX 0144 
DESC 1777 77/77 
NOP 0055 
XCH 1025 
STD 0421 
Mr@16] « 
LiTc 0016 00709 
DESC 0200 14003 
INX 0144 
MESC 1777 777? 
NOP 0055 
XCH 1025 
STD 0421 
MC@17) «€ 
LiTc 0017 OO074 
DESC 0200 1003 
INX 0144 
DESC 1777 7777 
NOP 0055 
XCH 1025 
STD 0424 
BASE « BASE = 23 
OPDC 0200 41002 
LIT¢ 0002 0010 
SUB 0304 
LITC 0000 0000 
DESC 0200 1003 
STD 0424 
OPpc 0200 14009 
LITC 0045 0224 
DESC 0200 1003 
INX 0144 
LOD 2021 
7455 
2464 
0265 
LITC 0043 0214 


00930000 T 
00940000 T 


00950000 T 


00960000 T 


00970000 T 


00980000 T 


00990000 T 


O214%1 
021431 


021740 


021833 


022082 


022231 


022342 


os 


pony 


1640 


1644 


1650 
1654 
1660 
1664 
1670 
1674 
1700 
1704 
1710 
1714 
1720 
1724 


1730 


0140004000000000 


0000000000004060 


0140000100000000 
0000000000006060 
0140000040100000 
3145652143312460 
2124245125626260 
26465160442347 37 
0740000000000046 
0140000047704235 
9140000047700473 
0140000041200017 
0441023201004441 
0253010453527705 


3705005104002411 


DFSC 0200 1063 


_INX 0144 
LOO 2024 
7455 
e261 
0265 
DESC 0200 1063 
STD 0424 


PCisSTS#UsSTF)} 
LITC 0001 0004 
LiITc 0003 O14 
2144 
LITc 00CO 0000 
LIT¢C 0002 O010 
2141 


GO TO PCLM£@15))7); 


LiTc 0015 0064 
DESC 0200 1003 
INX 0144 
BFW 42314 
WHILE TRUE DO; 

LITG 00014 0004 
LiTc 0005 O024 


BBW 4431 
NOP 0055 
NOP 0055 


OPDC 0350 16492 
OPDC 0351 1646 


OPNC 0352 1652 
OPDC 0352 1652 


OPDC 9353 1656 
OPNC 0354 1662 
OPNC 0355 1666 
OPNC 0356 1672 
OPNC O357 1676 
OPDC 0360 1702 
OPnc 0361 1706 
OPNc 0362 1712 
OPDC 0363 1716 
OPDC 0364 {722 
OPDC 0365 1726 


OPDC 0366 1732 


01000000 


01010000 


01020000 


01020000 


01020000 


01020000 
01020000 
01020000 
01020000 
01020000 
01020000 
01020000 
01020000 
01020000 
01020000 
01020000 
01020000 


01020000 


022733 


O229%1 


023031 


0230% 4 


023081 


023021 
023031 
023031 
02301 
0230:1 
023031 
023031 
023071 
023081 
023031 
023031 
023031 


023031 


Ge 


O 


32 ITC 0021 0104 
33 UFC 2231 
END OF HALT LOAD CARD oeess 


NUMBER OF ERRORS DETECTFD = 000, COMPILATION TIME = 0024 SECONDS, 
PRT S{ZE#136 BASF ADDRESS=0247 CORE REQ=0268 DISK REQ=00330 


LABEL QOO000000LINE OO178124PEXECUTE ESPOL/NISK 


01030000 T 0247%0 


SIZE= 0247 WORDS 


ESPOL 


/DISK 


“) 


